﻿Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class UsuarioBL

    Private usuario_DA As UsuarioDA = Nothing

    Public Function Add(ByVal _usuario_BE As UsuarioBE, ByVal _roles As ArrayList, ByVal _groups As ArrayList, ByVal _repository As ArrayList) As Int16
        Return Usuario_DA.Add(_usuario_BE, _roles, _groups, _repository)
    End Function

    Public Function Update(ByVal _usuario_BE As UsuarioBE) As String
        Return Usuario_DA.Update(_usuario_BE)
    End Function

    Public Function GetFindUser(ByVal strTexto As String) As System.Data.DataTable
        Return Usuario_DA.GetFindUser(strTexto)
    End Function

    Public Function EnableDisableUser(ByVal idUsuario As String, ByVal strEstado As String) As String
        Return Usuario_DA.EnableDisableUser(idUsuario, strEstado)
    End Function

    Public Sub New()
        usuario_DA = New UsuarioDA
    End Sub
End Class
